'GetBetweenAll (Used for parsing lists.. dorks as an example :))

Public Function GBA(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, _
                         ByVal lstAdd As ListBox, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, strResult As String, lenStart As Integer = strStart.Length

        Do Until iPos = -1
            strResult = String.Empty
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
                lstAdd.Items.Add(strResult)
                startPos = iPos + lenStart
            End If
        Loop

        GBA = ""
    End Function